#!/usr/bin/perl

use strict;
use warnings;
require 'forum_common.pl';

connect_to_database() or bad_deal();

record_this_hit();

print	header($forum::http_header),
		forum_start(forum_cpanel(get_current_user(get_sess_id())));

print <<HTML;
<p>

My name is Steve Foley. I am awesome. I wrote this entire forum by myself
from scratch using perl and a MySQL database. The school server would not
allow me to use php, so I had to learn perl to make this forum. So I did.
</p>

<p>
Stuff I need to finish:
<ul>
<li>
	Add admin controls besides editing the database directly via MySQL
	(like a separate web interface, or controls right there on the same page)
</li>
<li>
	Add deleting/locking topics/posts. Put more functionality
	into the forum, ie more columns in the tables, so I can have nice things
</li>
<li>
	Banning users? I might not want to remove their rows from the tables
	completely, just have like a BANNED field

</li>
<li>
	Fix up MBcode so it's not so intrusive, and add other functionality like
	images, links, lists, etc. <br />
	{link:http://www.google.com/|google} <br />
	{img:http://server.com/images/img.png|Alt Text|xkcd message!}
	<br />
	{list:These|Are|Separate|Items|In|A|List}
</li>
</ul>
</p>
HTML

gameover:
print forum_end();
forum_disconnect();
